      SUBROUTINE DSINQI (N,WSAVE)
      IMPLICIT NONE
      INTEGER :: N
      DOUBLE PRECISION :: WSAVE(1)
      CALL DCOSQI (N,WSAVE)
      RETURN
      END
